﻿Public Class CambiarClave

    Dim oAut As New CAutenticacion

    Private Sub btnListo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListo.Click
        Try
            If (Me.Validar()) Then
                Dim resultado As String = Me.oAut.CambiarClave(My.Forms.Principal.IdUsuario, Me.txtActual.Text, Me.txtNueva.Text)
                MessageBox.Show(resultado, "Cambio de clave", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        Catch ex As Exception
            MessageBox.Show("No se pudo cambiar la clave: " & ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Valida que las dos nuevas claves con iguales y que está toda la información necesaria
    ''' </summary>
    ''' <remarks></remarks>
    Private Function Validar() As Boolean
        'Todos los textbox deben tener algo
        Dim mensaje As String = ""

        If (Trim(Me.txtActual.Text).Length = 0) Then
            mensaje += "- Debe escribir su clave actual" & Chr(13)
        End If
        If (Trim(Me.txtNueva.Text).Length = 0) Then
            mensaje += "- Debe escribir la nueva clave" & Chr(13)
        End If
        If (Trim(Me.txtNueva2.Text).Length = 0) Then
            mensaje += "- Debe escribir la confirmación de su nueva clave" & Chr(13)
        End If

        If (Trim(Me.txtNueva2.Text) <> Trim(Me.txtNueva.Text)) Then
            mensaje += "- La nueva clave y su confirmación no coinciden" & Chr(13)
        End If

        If (mensaje.Length > 0) Then
            MessageBox.Show(mensaje, "Datos incompletos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return False
        Else
            Return True
        End If

    End Function
End Class